Notes/Domino Fix List
 |  |
| SPR # YHAI67UDNA | Fixed in 6.5.6 release | Regression in |
Product Area: Template Technical Area: Template Platform: Cross Platform
Lotus Customer Support APAR: LO05852
SPR# YHAI67UDNA - "Microsoft Dial-Up Networking" is now listed in 'Choose a service type' from the Network Dialup Server Connection document.
Technote Number: 1231769
Problem:
This issue was reported to Quality Engineering as SPR# YHAI67UDNA and was fixed
in the templates which ship with Notes/Domino 6.5.6 and 7.0.
Excerpt from the Lotus Notes and Domino Release 6.5.6 MR fix list (available at
http://www.ibm.com/developerworks/lotus):
Template
SPR# YHAI67UDNA - "Microsoft Dial-Up Networking" is now listed in 'Choose a
service type' from the Network Dialup Server Connection document.
Refer to the Upgrade Central site for details on upgrading Notes/Domino.
The issue only occurs with databases based on a Notes 6.x pernames.ntf
template. The template version a database is based on can be determined by
checking the Design tab (4th tab) of the Database Properties. If the issue is
experienced on a Notes 7.x client it means that the design of the Personal Name
and Address Book needs to be updated. This can be done by selecting the
database and then selecting from the menu: File -> Database -> Refresh Design.
Workaround for Notes 6.x:
Always open "Network Dialup" connection documents in edit mode from the view
(by right-clicking and selecting Edit, or by using CTRL-E). If you've just set
the type to "Network Dialup" then close the document and reopen it in edit mode.
It is possible to modify the database or template design to make use of the
Notes/Domino redesign of the "Server Connection" form which resolves this
issue. The redesign sets the "Choose a service type" keyword list content any
time a change is made to the "Connection Type" field.
Steps:
1. Open the database or pernames.ntf template in the Domino Designer client.
2. Add the LotusScript code below to the OnChange event (set the Run trigger to
Client and LotusScript).
Const ITEM_DISPLAY_DRIVER_LIST = "DisplayDriverList"
Const ITEM_CONNECTION_TYPE = "ConnectionType"
Const CONNECTION_TYPE_RAS = "5"
Dim oUIWS As New NotesUIWorkspace
Dim oUIDoc As NotesUIDocument
Dim oDoc As NotesDocument
On Error Goto ERROR_HANDLER
Set oUIDoc = oUIWS.CurrentDocument
Set oDoc = oUIDoc.Document
If oDoc.GetItemValue(ITEM_CONNECTION_TYPE)(0) = CONNECTION_TYPE_RAS Then
Call oDoc.ReplaceItemValue(ITEM_DISPLAY_DRIVER_LIST,GetDisplayDriverList())
End If
Call oUIDoc.Reload
ROUTINE_EXIT:
Exit Sub
ERROR_HANDLER:
Msgbox "Error " + Cstr(Err()) + ": " + Error() + " -- line " + Cstr(Erl())
Exit Sub
3. Add the LotusScript function code below to the (Globals) event in the form.
Function GetDisplayDriverList() As Variant
On Error Goto ERROR_HANDLER
Dim oSession As New NotesSession
Dim oDb As NotesDatabase
Dim x As Integer
Dim y As Integer
Dim DriverList() As String
Dim Drivers() As String
Dim DisplayList() As String
Dim Aliases As Variant
Set oDb = oSession.CurrentDatabase
Forall Forms In oDb.Forms
If Forms.IsSubForm Then
If (oSession.notesbuildversion < 171 Or (Forms.name <> "$RLANARA")) Then
If Left(Forms.Name, 5) = "$RLAN" Then
Redim Preserve DriverList(x)
Redim Preserve Drivers(x)
Redim Preserve DisplayList(x)
Aliases = Forms.Aliases
DriverList(x) = Aliases(0) & "|" & Aliases(1)
DisplayList(x) = Aliases(0)
Drivers(x)= Aliases(1)
x = x + 1
End If
End If
End If
End Forall
GetDisplayDriverList = DisplayList
ROUTINE_EXIT:
Exit Function
ERROR_HANDLER:
Msgbox "Error " + Cstr(Err()) + ": " + Error() + " -- line " + Cstr(Erl())
Exit Function
End Function More >
Last Modified on 12/11/2013
Go back
|